home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
wildcat
/
towerwc4.zip
/
TOWERS.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-04-04
|
16KB
|
804 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 15675 bytes 03/09/122 08:19:08am
'! Code Segment Size :7377 bytes
'! Data Segment Size :4917 bytes
'! String Segment Size:8298 bytes
'! Compiled with WCC version ? 019C017B
Type Type26
s0 As String*15
s15 As String*15
Filler30(1 To 32) As Byte
s62 As String*7
Filler69(1 To 67) As Byte
s136 As String*3
Filler139(1 To 3) As Byte
s142 As String*4
End Type
Declare Function Func3322(l65534 As Long, l65532 As Long) As Integer
Declare Sub Sub3794
Declare Sub Sub3919
Declare Sub Sub4073
Declare Sub Sub4227
Declare Sub Sub4381
Declare Sub Sub4467
Declare Sub Sub4542
Declare Sub Sub5094
Declare Sub Sub5342
Declare Sub Sub5392
Declare Sub Sub5442
Declare Sub Sub5476
Declare Sub Sub5972
Declare Sub Sub7084
Dim s4463 As String
Dim l4467 As Long
Dim s4471 As String
Dim s4475 As String
Dim s4479 As String*1
Dim i4480 As Integer
Dim i4654 As Integer
Dim t26_4656 As Type26
Dim w4828 As Word
Dim i4830 As Integer
Dim s4832 As String*1
Dim s4833 As String
Dim s4837 As String
Dim s4841 As String
Dim i4845 As Integer
Dim i4847 As Integer
Dim s4849 As String*5
Dim i4854 As Integer
Dim r4856 As Real
Dim i4862 As Integer
Dim s4864 As String*1
Dim s4865 As String*1
Dim i4866 As Integer
Dim i4868 As Integer
Dim i4870 As Integer
Dim i4872 As Integer
Dim s4874 As String
Dim s4878 As String
Dim d4882 As Date
Dim s4884 As String
Dim s4888 As String
Dim i4896 As Integer
Dim s4898 As String
Dim s4902 As String*15
Dim l65532_ As Long '! Temporary
s4888 = Str(Node)
s4479 = "N"
CurrentDate d4882
s4884 = FormatDate(d4882, "mm/dd/yy")
EnablePages 0
s4833 = " @07@─────@08@══════════@07@──────"
i4654 = FreeFile
s4471 = ProgPath + "towers.cfg"
Open s4471 For Input As i4654
Input #i4654, s4463
Input #i4654, l4467
Input #i4654, s4475
Close i4654
If Func3322(l4467, (30496)) Then
i4896 = -1
Else
223 i4896 = 0
End If
229 If i4896 = -1 Then
s4479 = "Y"
Else
262 s4479 = "N"
s4475 = "UNREGISTERED COPY"
End If
282 If Exists(ProgPath + "tdtmaint.dat") Then
i4654 = FreeFile
Open ProgPath + "tdtmaint.dat" For Input As i4654
Input #i4654, s4898
Close i4654
s4898 = UCase(s4898)
If s4898 <> s4884 Then
Del ProgPath + "tdtplay.dat"
Del ProgPath + "tdtmaint.dat"
End If
End If
408 i4654 = FreeFile
Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
i4480 = 0
Do
451 i4480 = i4480 + 1
Get i4654, i4480, t26_4656 '! 172 bytes
If InStr(UCase(t26_4656.s0), UCase(Pad(User.Name, 15))) Then
GoTo 541
End If
525 Loop While Not EOF(i4654)
541 Close i4654
Sub7084
If Exists(ProgPath + "tdtplay.dat") Then
i4654 = FreeFile
Open ProgPath + "tdtplay.dat" For Input As i4654
Do
610 Input #i4654, s4902
If InStr(UCase(s4902), UCase(t26_4656.s0)) Then
Close i4654
GoTo 693
End If
663 Loop While Not EOF(i4654)
Close i4654
End If
687 GoTo 751
693 MorePrompt(0)
Cls
Sub5442
Locate 5, 12
Print "@0D@Sorry....It appears that you have already played today."
Locate 7, 12
Print "@0D@Come back tomorrow - and DON'T FORGET YOUR GOLD!!!!!"
Sub4381
Sub5342
751 i4654 = FreeFile
Open ProgPath + "tdtplay.dat" For Append As i4654
Print #i4654, UCase(t26_4656.s0)
Close i4654
i4654 = FreeFile
Open ProgPath + "tdtmaint.dat" For Output As i4654
Print #i4654, UCase(s4884)
Close i4654
Cls
MorePrompt(0)
DisplayTextFile(ProgPath + "towers1.bbs")
Locate 12, 36
Print "@0D@.66 @08@(@07@Beta Release@08@)"
Locate 13, 36
Print "@0D@2/3/96"
Locate 14, 36
Print "@0D@" + s4475
Sub3794
Sub4381
Sub5442
Locate 5, 7
Print "@05@Your journey ends in a large field atop a mountain@07@.@08@.@07@.@08@."
Locate 6, 7
Print "@05@You see a large crowd of warriors@07@.@08@.@07@.@05@so you wander over to them@07@.@08@.@07@."
Locate 7, 7
Print "@0D@What's going on here fellow warriors? @05@you ask@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
Locate 8, 7
Print "@09@We're betting on slave deaths@07@.@08@.@07@.@08@.@05@ responds the nearest warrior."
Locate 9, 7
Print "@0D@SLAVE DEATHS?????? @05@Hmmmmm what the hell is this?????"
Locate 10, 7
Print "@05@You soon find out what they are talking about@07@.@08@.@07@.@08@.@07@.@08@.@07@."
Sub4381
Sub5442
Locate 5, 5
Print "@05@You can't help but notice the two @08@DARK TOWERS @05@off in the distance."
Locate 6, 5
Print "@05@This spot commands a magnificent view of the towers in the distance."
Locate 7, 5
Print "@05@Then you find out exactly what this is all about@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
Locate 8, 5
Print "@05@You notice that on each tower is a small ledge@07@.@08@.@07@.@08@.@07@.@08@."
Locate 9, 5
Print "@05@On each ledge stands a slave@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@."
Locate 10, 5
Print "@05@You notice that even as you stand there thinking@07@.@08@.@07@.@08@."
Locate 11, 5
Print "@05@Bets are being placed! What in the HELL is going on here??"
Locate 12, 5
Print "@05@After all the bets are placed a trumpet is sounded@07@.@08@.@07@.@08@.@07@.@08@."
Locate 13, 5
Print "@05@Then the slaves are pushed from the ledges to their deaths@07@.@08@.@07@.@08@.@07@."
Sub4381
Sub5442
Locate 5, 5
Print "@05@A flag is then raised to indicate which slave died first."
Locate 6, 5
Print "@05@Then the winnings are distributed to the winners@07@.@08@.@07@.@08@."
Locate 7, 5
Print "@05@A cheer is heard from the crowd! These are some really sick F@#$@#S!"
Locate 8, 5
Print "@05@How can this be????? This is freakin' barbaric!!!!!!"
Locate 9, 5
Print "@05@This is the most vile, disgusting thing you've EVER witnessed!"
Locate 10, 5
Print "@05@How can people BET on which body will hit the ground first???"
Locate 11, 5
Print "@05@How can life be so worthless as to be used for others amusement@07@.@08@.@07@.@08@.@07@."
Locate 12, 5
Print "@05@How can these people stand idly by and watch this senseless @04@CARNAGE@05@?"
Locate 13, 5
Print "@05@You've got to do something about these attrocities!"
Sub4381
Sub5442
Locate 5, 7
Print "@05@Well@07@.@08@.@07@.@08@.@07@.@05@what're ya gonna do " + "@05@" + Trim(t26_4656.s15) + "@05@???"
Locate 7, 7
Print "@05@[@0D@A@05@]@0D@venge the deaths of the slaves and kill these S.O.B.'s!!!!"
Locate 9, 7
Print "@05@[@0D@P@05@]@0D@lace your bet! Who cares about some lowlife slaves anyways!!!"
Do
1462 Locate 23, 1
s4832 = InKey(1213417543)
If InStr("AP", UCase(s4832)) Then
GoTo 1518
End If
1512 Loop
1518 If UCase(s4832) = "A" Then
Sub5442
Locate 5, 5
Print "@0D@STOP YOU SCOUNDRELS!!!! @05@You Yell at the crowd"
Locate 6, 5
Print "@0D@THIS HAS GOT TO STOP AND NOW!!!! THIS IS SENSELESS KILLING!!!"
Locate 7, 5
Print "@05@The only response to this is loud laughter@08@.@07@.@08@.@07@."
Locate 8, 5
Print "@05@They find your rantings extremely humorous@07@.@08@.@07@.@08@."
Locate 9, 5
Print "@05@Then one of the warriors yells @09@Throw his skanky a$$ offa the cliff@05@!!"
Locate 10, 5
Print "@05@You try to fight them off but it's no use - you're outnumbered!!"
Locate 11, 5
Print "@05@Four of the biggest ones grab you and chuck you off the cliff!"
Locate 12, 5
Print "@05@Your helpless body tumbles rapidly to the rocky base of the cliff!"
Locate 13, 5
Print "@05@Only the gods can save you now@07@.@08@.@07@.@08@.@07@.@08@."
Sub4381
Locate 23, 1
ClrEOL
Sub5476
Sub5442
i4845 = Rnd * 100 Mod 50 + 1
If i4845 <= 25 Then
Locate 5, 5
Print "@05@Your body is ripped to pieces by the fall!!!"
Locate 6, 5
Print "@05@Some healers wander past - but not even they can save you!"
Locate 7, 5
Print "@05@With your last breath you say a prayer for your soul@07@.@08@.@07@.@08@."
Locate 8, 5
Print "@05@The last thing you remember is a flock of vultures descending on you."
Locate 9, 5
Print "@05@The Vultures pick your body of all but the bones@07@.@08@.@07@.@08@.@07@.@08@.@07@."
Locate 11, 25
Print "@84@Surprise you're DEAD!"
Sub4381
Sub5094
Else
1871 Locate 5, 5
Print "@05@Your body is ripped to pieces by the fall!!!"
Locate 6, 5
Print "@05@Some healers walk up@07@.@08@.@07@.@08@.@07@.@08@."
Locate 7, 5
Print "@05@They mumble some ancient sounding spells and incantations@07@.@08@.@07@.@08@."
Locate 8, 5
Print "@05@Well@07@.@08@.@07@.@08@.@05@They saved your life - but you're hurtin' bad!"
Locate 9, 5
Print "@05@You thank the gods that you have been spared this agonizing death!"
Locate 10, 5
Print "@05@You laugh at the vultures@07@.@08@.@07@.@08@.@07@.@08@.@07@.@08@.@0D@NO MEAL TODAY VULTURES@85@!"
Locate 12, 5
Print "@04@Your Hitpoints are at @0C@1 @04@Don't forget to go to the Doctor's Office@05@!!!"
i4847 = 1
t26_4656.s142 = Str(i4847)
If Len(t26_4656.s142) < 4 Then
t26_4656.s142 = Pad(t26_4656.s142, 4)
End If
2056 Sub4467
Sub4381
Sub5392
End If
End If
2074 If UCase(s4832) = "P" Then
Sub5442
Locate 5, 12
Print "@09@Step right up WARRIOR!!! @05@an older Warrior bellows."
Locate 6, 12
Print "@09@There is only one bet left today@07@.@08@.@07@.@08@."
Locate 7, 12
Print "@09@So if you're gonna bet do it now " + "@09@" + Trim(t26_4656.s15) + "@09@!!!"
Locate 8, 12
Print "@09@WELL????? Are ya gonna bet or not????? @05@asks the warrior."
Locate 10, 22
Print "@05@[@0D@H@05@]@0D@ell YEAH!!!"
Locate 12, 22
Print "@05@[@0D@N@05@]@0D@ope I changed my mind!!!"
Do
2227 Locate 23, 1
s4832 = InKey(1213417543)
If InStr("HN", UCase(s4832)) Then
GoTo 2283
End If
2277 Loop
2283 If UCase(s4832) = "N" Then
Sub5442
Locate 5, 12
Print "@05@What a @0D@WUSS@05@!!!!!!"
Locate 6, 12
Print "@05@All the other warriors laugh at you!"
Locate 7, 12
Print "@09@Get outa here you little wimp of a warrior!"
Locate 8, 12
Print "@05@They all laugh in ridicule of you!"
Locate 9, 12
Print "@05@They all start to eye you warily@07@.@08@.@07@.@08@."
Locate 10, 12
Print "@05@It'd probably be a good idea to leave now@07@.@08@.@07@.@08@."
Sub4381
Sub5342
Else
Do
Do
2425 r4856 = Val(Trim(t26_4656.s62))
Sub5442
Locate 5, 12
Print "@09@Well how much you wanna bet " + "@09@" + Trim(t26_4656.s15) + "@09@???"
Locate 6, 12
Print "@09@The maximum bet here is 10,000 Gold@07@.@08@.@07@.@08@.@07@.@08@."
Locate 7, 12
Print "@09@The odds are 2 to 1 - A 10,000 bet can win ya 20,000!"
Locate 8, 12
Print "@09@Well? I ain't got all day - what's it gonna be " + "@09@" + Trim(t26_4656.s15) + "@09@???"
Locate 9, 12
Print "@09@To just quit - select a 0 bet@07@.@08@.@07@.@08@.@07@.@08@."
Locate 10, 12
s4849 = InputMask("@09@How much are ya gonna bet? @0C@", "XXXXX", "", 1213417543)
i4854 = Val(Trim(s4849))
If (i4854 > 10000) = 0 Then GoTo 2704
Locate 12, 12
Print "@09@Can't you READ??? I SAID 10,000 Gold MAXIMUM BET!!!!!"
Locate 13, 13
Print "@09@Let's see if you can get it right THIS TIME!!!!"
Sub4381
Loop
2704 If i4854 < 1 Then
Locate 12, 12
Print "@09@You obviously don't take this seriously @05@states the warrior."
Locate 13, 12
Print "@09@So why don't ya get the HELL outa here NOW!!!"
Locate 14, 12
Print "@05@It seems that NOW would be a good time to leave@07@.@08@.@07@.@08@."
Locate 15, 12
Print "@05@Before these warriors decide to bet on your life!"
Sub4381
Sub5342
End If
2795 If (i4854 > r4856) = 0 Then GoTo 2883
Locate 12, 12
Print "@09@YOU SCOUNDREL! ARE YOU TRYING TO CHEAT ME?"
Locate 13, 12
Print "@09@You don't even have " + "@09@" + Trim(s4849) + "@09@ gold!"
Sub4381
Loop
2883 r4856 = r4856 - i4854
t26_4656.s62 = Str(r4856)
If Len(t26_4656.s62) < 7 Then
t26_4656.s62 = Pad(t26_4656.s62, 7)
End If
2968 If Len(t26_4656.s62) > 7 Then
t26_4656.s62 = "9999999"
End If
3006 Sub4467
Sub5442
Locate 5, 12
Print "@09@VERY GOOD! A bet of " + "@09@" + s4849 + " @09@is a noble one indeed!"
Locate 6, 12
Print "@09@There is just one more MINOR detail to take care of@07@.@08@.@07@.@08@."
Locate 7, 12
Print "@09@That would be which SLAVE do you think will die first?????"
Locate 8, 12
Print "@09@WELL?? Which one will it be " + "@09@" + Trim(t26_4656.s15) + "@09@???"
Locate 10, 12
Print "@05@The [@09@B@05@]@09@lue @05@Slave"
Locate 12, 12
Print "@05@The [@0D@M@05@]@0D@agenta @05@Slave"
Do
3165 Locate 23, 1
s4832 = InKey(1213417543)
If InStr("BM", UCase(s4832)) Then
GoTo 3221
End If
3215 Loop
3221 s4864 = UCase(s4832)
Sub5442
Locate 10, 20
Print "@8D@PLEASE HOLD - PREPARING THE SLAVES"
Sub5476
Sub5972
End If
End If
3270
'! Called 1 time
Function Func3322(l65534 As Long, l65532 As Long) As Integer
Dim l65467 As Long
Dim i65471 As Integer
Dim l65473 As Long
Dim i65477 As Integer
Dim s65483 As String*7
Dim s65490 As String*30
Dim l65520 As Long
Dim l65524 As Long
Dim i65528 As Integer
s65490 = UCase(MakeWild.BBSName)
s65490 = Trim(s65490)
l65524 = 0
3399 For i65528 = 1 To Len(s65490) Step 1
l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
Next
3503 s65483 = UCase(MakeWild.RegString)
s65483 = Trim(s65483)
l65520 = 0
3572 For i65528 = 1 To Len(s65483) Step 1
l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
Next
3676 l65520 = l65520 + l65524
l65520 = l65520 * 7
l65520 = l65520 * l65532
l65520 = l65520 + l65532
If l65520 = l65534 Then
Func3322 = - 1
Else
3780 Func3322 = 0
End If
3786
End Function
'! Called 1 time
Sub Sub3794
s4837 = "@07@" + Trim(t26_4656.s15) + " @08@traveled to @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
s4841 = "@08@What secrets could possibly lie within their cold stone walls?"
Open s4463 + "today.txt" For Append As i4654
Print #i4654, s4837
Print #i4654, s4841
Print #i4654, s4833
Close i4654
End Sub
'! Called 1 time
Sub Sub3919
s4837 = "@07@" + Trim(t26_4656.s15) + " @08@was chucked off a cliff in @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
s4841 = "@08@We all shall mourn the passing of " + "@07@" + Trim(t26_4656.s15) + " @08@the Warrior...."
Open s4463 + "today.txt" For Append As i4654
Print #i4654, s4837
Print #i4654, s4841
Print #i4654, s4833
Close i4654
End Sub
'! Called 1 time
Sub Sub4073
s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@was chucked off a cliff in @07@T@08@he @07@D@08@ark @07@T@08@owers@84@!"
s4841 = "@05@Amazingly " + "@0D@" + Trim(t26_4656.s15) + " @05@they survived the ordeal! Send 'em a Get Well Soon Card!"
Open s4463 + "today.txt" For Append As i4654
Print #i4654, s4837
Print #i4654, s4841
Print #i4654, s4833
Close i4654
End Sub
'! Called 1 time
Sub Sub4227
s4837 = "@0D@" + Trim(t26_4656.s15) + " @05@successfully made it back from @07@T@08@he @07@D@08@ark @0D@T@08@owers@84@!"
s4841 = "@05@I bet " + "@0D@" + Trim(t26_4656.s15) + " @05@has some stories to tell...."
Open s4463 + "today.txt" For Append As i4654
Print #i4654, s4837
Print #i4654, s4841
Print #i4654, s4833
Close i4654
End Sub
'! Called 15 times
Sub Sub4381
Locate 23, 25
Print "@0D@Stroke a @0F@KEY, @0D@Warrior!@0A@ "
Do
4406 s4832 = InKey(1213417543)
If UCase(s4832) > "" Then
GoTo 4454
End If
4448 Loop
4454 Locate 23, 1
ClrEOL
End Sub
'! Called 7 times
Sub Sub4467
i4654 = FreeFile
Open s4463 + "lachuser.dat" For Random As i4654 Len = 172 '! This value should probably be replaced with a "SizeOf" expression
Put i4654, i4480, t26_4656 '! 172 bytes
Close i4654
End Sub
'! Called 3 times
Sub Sub4542
Dim l65512 As Long
Dim i65516 As Integer
Dim l65518 As Long
Dim i65522 As Integer
Dim l65524 As Long
Dim i65528 As Integer
Dim l65530 As Long
Dim i65534 As Integer
Cls
MorePrompt(0)
Locate 8, 17
Print " @84@UNREGISTERED PROGRAM - PLEASE REGISTER"
Locate 9, 17
Print "@0D@┌@05@───────────────────@0D@┬@05@────────────────────@0D@┐"
Locate 11, 17
Print "@0D@└@05@───────────────────@0D@┴@05@────────────────────@0D@┘"
4628 For i4830 = 17 To 27 Step 1
Locate 10, i4830
Print "@0D@░"
Delay 0.1
Next
4728
4749 For i4830 = 28 To 38 Step 1
Locate 10, i4830
Print "@0D@▒"
Delay 0.1
Next
4849
4870 For i4830 = 39 To 49 Step 1
Locate 10, i4830
Print "@0D@▓"
Delay 0.1
Next
4970
4991 For i4830 = 50 To 58 Step 1
Locate 10, i4830
Print "@0D@█"
Delay 0.1
Next
5091
End Sub
'! Called 1 time
Sub Sub5094
Sub3919
i4847 = 0
t26_4656.s136 = "NO "
t26_4656.s142 = Str(i4847)
t26_4656.s62 = "0 "
If Len(t26_4656.s62) <= 7 Then
t26_4656.s62 = Pad(t26_4656.s62, 7)
End If
5211 If Len(t26_4656.s142) <= 4 Then
t26_4656.s142 = Pad(t26_4656.s142, 4)
End If
5259 If Len(t26_4656.s136) <= 3 Then
t26_4656.s136 = Pad(t26_4656.s136, 3)
End If
5307 Sub4467
If s4479 = "N" Then
Sub4542
End If
5338 End
End Sub
'! Called 3 times
Sub Sub5342
Sub4227
Sub4467
If s4479 = "N" Then
Sub4542
End If
5388 End
End Sub
'! Called 1 time
Sub Sub5392
Sub4073
Sub4467
If s4479 = "N" Then
Sub4542
End If
5438 End
End Sub
'! Called 13 times
Sub Sub5442
Cls
MorePrompt(0)
DisplayTextFile(ProgPath + "towers4.bbs")
End Sub
'! Called 2 times
Sub Sub5476
Dim l65512 As Long
Dim i65516 As Integer
Dim l65518 As Long
Dim i65522 As Integer
Dim l65524 As Long
Dim i65528 As Integer
Dim l65530 As Long
Dim i65534 As Integer
5506 For i4830 = 17 To 27 Step 1
Locate 20, i4830
Print "@0D@░"
Delay 0.1
Next
5606
5627 For i4830 = 28 To 38 Step 1
Locate 20, i4830
Print "@0D@▒"
Delay 0.1
Next
5727
5748 For i4830 = 39 To 49 Step 1
Locate 20, i4830
Print "@0D@▓"
Delay 0.1
Next
5848
5869 For i4830 = 50 To 58 Step 1
Locate 20, i4830
Print "@0D@█"
Delay 0.1
Next
5969
End Sub
'! Called 1 time
Sub Sub5972
Dim i65532 As Integer
Dim i65534 As Integer
s4874 = "@09@Ω"
s4878 = "@0D@Ω"
i4866 = 6
i4868 = 12
i4870 = 6
i4872 = 60
w4828 = 6
i4830 = 13
i4845 = Rnd * 100 Mod 10 + 1
i65534 = i4845
i4845 = Rnd * 100 Mod 10 + 1
i65532 = i4845
s4865 = " "
Cls
MorePrompt(0)
DisplayTextFile(ProgPath + "towers.bbs")
Locate i4866, i4868
Print s4874
Locate i4870, i4872
Print s4878
Locate 3, 9
Print "@0F@· ∙ @0F@──@07@──@08@── @08@We Who@07@ Are Abo@0F@ut To D@07@ie Salu@08@te You!@07@ @08@──@07@──@0F@──@07@ @0F@∙ ·"
Sub4381
i4868 = 13
i4872 = 59
Cls
MorePrompt(0)
DisplayTextFile(ProgPath + "towers.bbs")
Locate i4866, i4868
Print s4874
Locate i4870, i4872
Print s4878
Delay 0.5
Locate i4866, i4868
Print " "
Locate i4870, i4872
Print " "
Do
6336 i4866 = i4866 + i65534
If i4866 >= 23 Then
s4865 = "B"
GoTo 6534
End If
6385 i4870 = i4870 + i65532
If i4870 >= 23 Then
s4865 = "M"
GoTo 6534
End If
6434 Locate i4866, i4868
Print s4874
Locate i4870, i4872
Print s4878
Delay 0.5
Locate i4870, i4830
Print Space(47)
Locate i4866, i4830
Print Space(47)
Loop
6534 If s4865 = "B" Then
Cls
MorePrompt(0)
DisplayTextFile(ProgPath + "towers2.bbs")
Else
6581 Cls
MorePrompt(0)
DisplayTextFile(ProgPath + "towers3.bbs")
End If
6603 Delay 1.5
Sub5442
If s4865 = s4864 Then
i4862 = i4854 * 2
r4856 = r4856 + i4862
t26_4656.s62 = Str(r4856)
If Len(t26_4656.s62) < 7 Then
t26_4656.s62 = Pad(t26_4656.s62, 7)
End If
6736 If Len(t26_4656.s62) > 7 Then
t26_4656.s62 = "9999999"
End If
6774 Sub4467
Locate 5, 8
Print "@05@The officiating Warrior rushes over to you@08@.@07@.@08@.@07@.@08@.@07@.@08@."
Locate 6, 8
Print "@09@VERY WELL DONE Mighty " + "@09@" + Trim(t26_4656.s15) + "@09@!!!!"
Locate 7, 8
Print "@09@VERY WELL INDEED! @05@stammers the Warrior@07@.@08@.@07@.@08@.@07@."
Locate 8, 8
Print "@09@Your bet came in! You won " + "@89@" + Str(i4862) + " @89@GOLD@09@!!!!"
Locate 10, 8
Print "@05@Too bad for the Slaves - But they made you a tidy sum of CASH!!!"
Else
6919 i4862 = 0
Locate 5, 8
Print "@09@HAHAHAHAHAHAHA You Suck! @05@Scoffs the Warrior."
Locate 6, 8
Print "@09@Your betting ability is crappy at the best! @05@He laughs."
Locate 7, 8
Print "@09@Maybe you'd be better suited on the 'Other Side' of this game!"
Locate 8, 8
Print "@05@NOW might be a good time for you to get the hell outa here!!!!"
Locate 9, 8
Print "@05@The Warrior is watching you warily@07@.@08@.@07@.@08@."
Locate 10, 8
Print "@09@GET HIM! @05@he yells! All the warriors rush after you!"
Locate 11, 8
Print "@05@You (somehow) manage to escape the group@07@.@08@.@07@.@08@.@07@."
Locate 13, 8
Print "@05@You rush back to The World of The Lachrymator@08@.@07@.@08@.@07@.@08@.@07@."
Locate 15, 8
Print "@0D@WHEW! THAT SURE WAS A CLOSE ONE!!!!!!!!!!!!!"
End If
7069 Sub4381
Sub4467
End Sub
'! Called 1 time
Sub Sub7084
Dim s65528 As String
Dim s65532 As String
If Exists(s4463 + "lachex" + s4888 + ".dat") Then
i4654 = FreeFile
Open s4463 + "lachex" + s4888 + ".dat" For Input As i4654
Input #i4654, s65532
Close i4654
s65528 = Left(s65532, 15)
If UCase(s65528) = UCase(t26_4656.s0) Then
GoTo 7366
Else
7243 GoTo 7255
End If
7249 Else
7255 Cls
MorePrompt(0)
Locate 3, 12
Print "@84@ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!! ERROR!!"
Locate 5, 12
Print "@09@This Program can only be run from a REGISTERED COPY"
Locate 6, 12
Print "of Lachrymator. This program cannot be run on it own...."
Locate 7, 12
Print "@09@According to internal file verification routines..."
Locate 8, 12
Print "@09@The installed copy of Lachrymator is NOT REGISTERED!"
Locate 9, 12
Print "@09@PLEASE ask your SysOp to Register Lachrymator..Thanks!"
End If
7359 Sub4381
End
7366
End Sub